Rem	VBScript For probing In the Y direction

If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
	Code "(Probe plate is grounded, check connection and try again)"
Else
	Code "G4 P2"			'Pause 1 second to give time to position probe plate

	CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
	Code "F10"			'Slow feedrate to 4 ipm

Rem	Probe up

	YNew = GetDro(1) + 3		'move to current y position + 3 inches
	Code "G31 Y" &YNew
	While IsMoving()		'wait for the move to finish
	Wend
	YNew = GetVar(2001)		'read the touch point

Rem	move back to the hit point incase there was an overshoot
	
        Code "G91 G0 Z.500"
	Code "G90 G0 Y" &YNew
        Code "G91 Y.100"

	While IsMoving ()
	Wend
        Call SetDro (1,0.000)
        Code "G4 P0.25"

	Code "F" &CurrentFeed 		'restore original feed rate
End If
